home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / SOUND / QTMPLAY2.ARC / !QTMPlay / !BootImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1997-04-07  |  3KB  |  113 lines
  1.  > <QTMPlay$Dir>.!BootImage
  2.  Chris Rutter, 1996
  3.  0,"There was a problem when trying to boot QTMPlay ("+
  4. $+", internal error code "+
  5. )+")"
  6.  "OS_GetEnv" 
  7.  tail$
  8. tail$,"-nosprites") 
  9.  nosprites%=
  10.  nosprites%=
  11. tail$,"-checkloaded") 
  12. check_loaded
  13. tail$,"-killwimplib") 
  14.  killwimplib%=
  15.  killwimplib%=
  16. tail$,"-choices") 
  17. setup_choices
  18. tail$,"-end") 
  19. debug%=
  20.  block% 1024
  21.  module% 32*1024
  22. off%=0
  23.  debug% 
  24.  " nosprites="+
  25. (nosprites%)
  26.  killwimplib% 
  27.  "XOS_CLI","RMKill WimpLibrary"
  28.  "XOS_CLI","Set File$Type_000 STracker"
  29.  "XOS_CLI","Set File$Type_001 STracker"
  30.  "XOS_CLI","Set File$Type_130 Carousel"
  31.  "XOS_CLI","Set File$Type_CC5 TeqMusic"
  32.  "XOS_CLI","Set File$Type_CB6 STModule"
  33.  "XOS_CLI","DosMap MOD CB6"
  34.  "XOS_CLI","DosMap S3M FFD"
  35.  "OS_GBPB",10,"<QTMPlay$Dir>.Formats",block%,1,off%,256,"*" 
  36.  ,,,,off%
  37.  off%<>-1 
  38.  block%!16=2 
  39. !3  path$="<QTMPlay$Dir>.Formats."+
  40. ct(block%+20)
  41.  debug% 
  42.  "Module "+path$+"..."
  43.  "OS_File",5,path$+".Code" 
  44.  exist%,,,,size%
  45.  exist%=1 
  46.  size%<32*1024 
  47. %#   
  48.  debug% 
  49.  " size="+
  50. (size%)
  51. &-   
  52.  "OS_File",255,path$+".Code",module%
  53. set_aliases
  54. (%   
  55.  nosprites% 
  56. load_sprites
  57.  off%=-1
  58. ct(address%)
  59.  string$
  60.  ?address%>31
  61.  string$+=
  62. (?address%)
  63.  address%+=1
  64. =string$
  65. set_aliases
  66.  base%
  67. base%=module%+module%!20
  68.  base%>module% 
  69.  base%<module%+size% 
  70.  !base%<>-1
  71.  debug% 
  72.  "  filetype "+
  73. ~(!base%)
  74. ("Set Alias$@RunType_"+
  75. ~(!base%))+" Run <QTMPlay$Dir>.!Run QTMfile:")
  76.   base%+=4
  77. load_sprites
  78.  "XOS_CLI","IconSprites "+path$+"."+
  79. ct(module%+module%!16)
  80. t(string$)
  81. (string$)<3
  82.  string$="0"+string$
  83. =string$
  84. check_loaded
  85.  call%,loaded%
  86.  0,"While trying to check whether QTMPlay was loaded, the following error occurred: "+
  87. $+" (internal error code "+
  88. )+")"
  89.  buffer% 16
  90.  "TaskManager_EnumerateTasks",call%,buffer%,16 
  91.  call%
  92. ct(buffer%!4)="QTMPlay" 
  93.  loaded%=
  94.  call%<0
  95.  loaded% 
  96.  "Set QTMPlay$Loaded True" 
  97.  "Set QTMPlay$Loaded False"
  98. setup_choices
  99.  "OS_CLI","Set QTMPlay$Choices <QTMPlay$Dir>.Choices"
  100.  "OS_CLI","If ""<Choices$Write>"" <> """" Then Set QTMPlay$Choices <Choices$Write>.QTMPlay.Choices"
  101.  "XOS_File",5,"<Choices$Write>.QTMPlay" 
  102.  type%;flags%
  103.  (flags% 
  104.  1<<28) 
  105.  type%=0
  106.  type%=1 
  107.  move Choices.QTMPlay into Choices.QTMPlay.Choices
  108.  "OS_FSControl",25,"<Choices$Write>.QTMPlay","<Choices$Write>.QTMPlayT"
  109.  "OS_File",8,"<Choices$Write>.QTMPlay"
  110.  "OS_FSControl",25,"<Choices$Write>.QTMPlayT","<Choices$Write>.QTMPlay.Choices"
  111.  type%=0 
  112.  "OS_File",8,"<Choices$Write>.QTMPlay"
  113.